;This code is for a 3 second on delay timer that is used in a step start circuit. 1/2 power is applied for 3 seconds 
;to a filament transformer on a 3CX1500A7 Linear amp. This prevents the filaments from being shocked during initial
;power turn on. PortB RB0 is used for the output and the clock frequency is 4.0 Mhz. There is a LED tied to RB0 
;to indicate. Essentially at turn on resistors are in series with the primary of the filament transformer. After the
;three second delay the PIC16F84 causes a small dip relay to close which in turn controls a power relay that shorts
;out the resistors. Therafter full power is provoded to the filament transformer.
; Designer is Pete Juliano. This is a modern day answer to the Amperite Time Delay Relay 


						List p=16f84
						Include "p16f84.inc"
						__CONFIG 0x3FF9
		
RB	EQU	0x06
LED	EQU	0x00


COUNT1	EQU	0x18
COUNT2	EQU	0x19
COUNT3	EQU	0x1A


	ORG	0x00
	GOTO	START

;********************Delay Loop 1006 mSec****************

SEC	MOVLW	0x30
	MOVWF	COUNT1
L1	MOVLW	0x34
	MOVWF	COUNT2
L2	MOVLW	0x85
	MOVWF	COUNT3
L3	DECFSZ	COUNT3,1
	GOTO	L3
	DECFSZ	COUNT2,1
	GOTO	L2
	DECFSZ	COUNT1,1
	GOTO	L1
	MOVLW	0x01
	MOVWF	COUNT1
LP99	DECFSZ	COUNT1,1
	GOTO	LP99
	NOP
	RETURN
;********************************************************



	
	


START	

	BSF		3,5
	MOVLW	0x00
	MOVWF	RB
	BCF		3,5

	BSF		RB,LED
	CALL	SEC
	CALL	SEC
	CALL	SEC
	BCF		RB,LED

LOOP1	CALL	SEC
	

		GOTO	LOOP1

L200	SLEEP
	END

;***Actual time is 3.018 seconds ****************